home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / eflibpt4.zip / DEMO / SCREEN / WRITE2.PAS < prev    next >
Pascal/Delphi Source File  |  1996-07-21  |  1KB  |  30 lines
  1. { Borland Pascal Extended Function Library - EFLIB (C) Johan Larsson, 1996
  2.   Demonstration; screen write #2 - ways of displaying text
  3.  
  4.   EFLIB IS PROTECTED BY THE COPYRIGHT LAW AND MAY NOT BE COPIED, SOLD OR
  5.   MANIPULATED. FOR MORE INFORMATION, SEE PROGRAM MANUAL! THIS DEMONSTRAT-
  6.   ION PROGRAM MAY FREELY BE USED AND DISTRIBUTED.                          }
  7.  
  8.  
  9. uses EFLIBDEF, EFLIBSCR, CRT;
  10.  
  11.  
  12. begin
  13.      with Screen do begin
  14.           Clear; { Clear the screen }
  15.  
  16.           WriteXYColor (1, 1, 'String with foreground and background', Yellow, Black);
  17.           WriteXYAttribute (2, 2, 'String with attribute', 12);
  18.  
  19.           SetColor (LightBlue, Black); { Change current attribute }
  20.  
  21.           WriteXY (3, 3, 'String with current attribute');
  22.           WriteCodedXY (4, 4, 'String with string codes@LightCyan:Black@');
  23.  
  24.           SetColor (LightGreen, Black);
  25.           GotoXY (5, 5); { Change position and current attribute }
  26.  
  27.           Write ('String written at current cursor position');
  28.           FillArea (5, 5, 62, 5, '!', 16*Red); { Fill a line using the Screen object }
  29.      end;
  30. end.